R Programming -While Loop